home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Organization / HyperWais / HyperWais 12 / HyperWais 12 / background_2583.xml next >
Encoding:
Extensible Markup Language  |  1992-10-02  |  5.7 KB  |  108 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2583</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_4588.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3325.css" />
  11.     <part>
  12.         <id>1</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>3</left>
  23.             <top>447</top>
  24.             <right>38</right>
  25.             <bottom>477</bottom>
  26.         </rect>
  27.         <style>shadow</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>1011</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Home</name>
  40.         <script>on mouseUpgo to stack "Home"end mouseUpon mouseWithinballoon "Click on this button to go to the Home stack."end mouseWithin</script>
  41.     </part>
  42.     <part>
  43.         <id>2</id>
  44.         <type>button</type>
  45.         <visible> <true /> </visible>
  46.         <reserved5> 0 </reserved5>
  47.         <reserved4> 0 </reserved4>
  48.         <reserved3> 0 </reserved3>
  49.         <reserved2> 0 </reserved2>
  50.         <reserved1> 0 </reserved1>
  51.         <enabled> <true /> </enabled>
  52.         <rect>
  53.             <left>597</left>
  54.             <top>447</top>
  55.             <right>636</right>
  56.             <bottom>477</bottom>
  57.         </rect>
  58.         <style>shadow</style>
  59.         <showName> <false /> </showName>
  60.         <highlight> <false /> </highlight>
  61.         <autoHighlight> <true /> </autoHighlight>
  62.         <sharedHighlight> <true /> </sharedHighlight>
  63.         <family>0</family>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>2162</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Chicago</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <name>goto menu card</name>
  71.         <script>on mouseUpgo to card "menu"end mouseUpon mouseWithinballoon "Click on this button to go to main menu of this stack."end mouseWithin</script>
  72.     </part>
  73.     <part>
  74.         <id>3</id>
  75.         <type>field</type>
  76.         <visible> <true /> </visible>
  77.         <dontWrap> <false /> </dontWrap>
  78.         <dontSearch> <false /> </dontSearch>
  79.         <sharedText> <false /> </sharedText>
  80.         <fixedLineHeight> <true /> </fixedLineHeight>
  81.         <autoTab> <false /> </autoTab>
  82.         <lockText> <true /> </lockText>
  83.         <rect>
  84.             <left>44</left>
  85.             <top>447</top>
  86.             <right>591</right>
  87.             <bottom>468</bottom>
  88.         </rect>
  89.         <style>rectangle</style>
  90.         <autoSelect> <false /> </autoSelect>
  91.         <showLines> <false /> </showLines>
  92.         <wideMargins> <false /> </wideMargins>
  93.         <multipleLines> <false /> </multipleLines>
  94.         <reservedFamily> 0 </reservedFamily>
  95.         <titleWidth>0</titleWidth>
  96.         <icon>0</icon>
  97.         <textAlign>left</textAlign>
  98.         <font>Geneva</font>
  99.         <textSize>10</textSize>
  100.         <textStyle>plain</textStyle>
  101.         <textHeight>13</textHeight>
  102.         <name>status_line</name>
  103.         <script>on mouseWithinballoon "This field displays HyperWais progress messages. "end mouseWithin</script>
  104.     </part>
  105.     <name>background</name>
  106.     <script>-- this handler contains the functions needed to manage the-- sourcesfunction parseSourceFile sourceName-- this function opens a source file and parses it out.-- it assumes the file name is fully contructed and qualifiedglobal siteNameglobal siteIPglobal sitePortglobal maintainerglobal databaseNameglobal databaseMaxDocNumglobal confidenceglobal descriptionopen file sourceNamerepeatset the cursor to busyread from file sourceName until returnif it is empty then exit repeatput it into sourceLineif sourceLine contains ":description" thenrepeatread from file sourceName until returnif it contains ":" then exit repeatif it contains ")" then exit repeatif it is empty then exit repeatput sourceLine && it into sourceLineend repeatput parseLine(sourceLine,":description") ¬¨into descriptionend ifif sourceLine contains ":ip-name" then put ¬¨parseLine(sourceLine,":ip-name") into siteNameif sourceLine contains ":ip-address" then put ¬¨parseLine(sourceLine,":ip-address") into siteIPif sourceLine contains ":tcp-port" then put ¬¨parseLine(sourceLine,":tcp-port") into sitePortif sourceLine contains ":maintainer" then put ¬¨parseLine(sourceLine,":maintainer") into maintainerif sourceLine contains ":database-name" then put ¬¨parseLine(sourceLine,":database-name") into databaseNameif sourceLine contains ":confidence" then put ¬¨parseLine(sourceLine,":confidence") into confidenceif sourceLine contains ":num-docs-to-request" then put ¬¨parseLine(sourceLine,":num-docs-to-request") into databaseMaxDocNumend repeatclose file sourceNamereturn 0end parseSourceFilefunction addSource sourceName, sourceList-- this function parses out a source file name (sourceName)-- places it in sourceList and returns sourceList,-- it also checks to see if the source is not already-- in the source listset the itemDelimiter to ":"put the last item of sourceName into sourceNameif sourceName is not empty thenput offset(".src",sourceName) - 1 into sourceNameLengthif sourceNameLength is not empty thenput character 1 to sourceNameLength of sourceName into sourceNameend ifrepeat with i = 1 to the number of lines of sourceListset cursor to busyget line i of sourceListif it = "   " & sourceName or it = ">>" & sourceName thenexit to hypercardend ifend repeatif character ( the length of sourceList ) of sourceList ‚↠return thenput sourceList & return into sourceListend ifput sourceList & "   " & sourceName into sourceListend ifreturn sourceListend addSource</script>
  107. </background>
  108.